(archive-set-buffer-as-visiting-file): Comment fix.

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 500ad5ff5fa864318ae4c85d370947160f9952e6..4afdfac2bf5578f6a8bf263486539bc2ef1fc525 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -870,10 +870,14 @@ using `make-temp-file', and the generated name is returned."
                    (save-excursion
                      (funcall set-auto-coding-function
                               filename (- (point-max) (point-min)))))
-              ;; dos-w32.el defines find-operation-coding-system for
-              ;; DOS/Windows systems which preserves the coding-system
-              ;; of existing files.  We want it to act here as if the
-              ;; extracted file existed.
+              ;; dos-w32.el defines the function
+              ;; find-buffer-file-type-coding-system for DOS/Windows
+              ;; systems which preserves the coding-system of existing files.
+              ;; (That function is called via file-coding-system-alist.)
+              ;; Here, we want it to act as if the extracted file existed.
+              ;; The following let-binding of file-name-handler-alist forces
+              ;; find-file-not-found-set-buffer-file-coding-system to ignore
+              ;; the file's name (see dos-w32.el).
               (let ((file-name-handler-alist
                      '(("" . archive-file-name-handler))))
                 (car (find-operation-coding-system